object DMFinanceiro: TDMFinanceiro
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 617
  Top = 152
  Height = 405
  Width = 517
  object QPlano: TQuery
    AfterOpen = QPlanoAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from PlanoContas'
      'Order By Estrutura')
    Left = 48
    Top = 16
  end
  object QTipoDocumento: TQuery
    AfterOpen = QTipoDocumentoAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from TipoDocumento'
      ''
      'Order By Tipo_Doc_Descricao')
    Left = 283
    Top = 16
  end
  object Qportador: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from Portador'
      'Order by Port_Descricao')
    Left = 48
    Top = 136
  end
  object QEspecie: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from Especie'
      'Order by Esp_Descricao')
    Left = 48
    Top = 72
  end
  object QConta: TQuery
    AfterOpen = QContaAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from ContaCorrente'
      'Where CodigoEmpresa = :Emp'
      ''
      'Order by Cont_Corr_Descricao')
    Left = 121
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object QCFOP: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  CFOP.*,'
      
        '  CAST(CFOP.CFOP_CODIGOFISCAL AS CHAR(5)) || '#39'  '#39' || CFOP.CFOP_D' +
        'ESCRICAO AS DESCRICAO'
      'FROM'
      '  CFOP'
      'WHERE'
      '  (EXCLUIDO <> '#39'S'#39' OR EXCLUIDO IS NULL)'
      'ORDER BY'
      '  CFOP_CODIGOFISCAL')
    Left = 202
    Top = 69
  end
  object QCentro: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from Centrocusto'
      ''
      'where Codpai <> 0 and tipo = '#39'ANAL'#205'TICO'#39
      ''
      'Order By Estrutura')
    Left = 204
    Top = 124
  end
  object QPlanoContabil: TQuery
    AfterOpen = QPlanoContabilAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select PlanoContabilidade.*,'
      
        '          PLANOCONT_CODIGOCONTABIL || '#39' - '#39' || PLANOCONT_DESCRIC' +
        'AO as codigo_descricao'
      '   from PlanoContabilidade'
      'Where CodigoEmpresa = :Emp'
      ''
      'Order By '
      ''
      'PLANOCONT_CODIGOCONTABIL')
    Left = 122
    Top = 136
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object QPlanoEntrada: TQuery
    AfterOpen = QPlanoEntradaAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM PLANOCONTAS'
      ''
      'WHERE CODPAI <> 0'
      ''
      'AND NATUREZA LIKE '#39'E%'#39' '
      ''
      'AND TIPO LIKE '#39'A%'#39
      ''
      'Order By Estrutura'
      ''
      '')
    Left = 120
    Top = 16
  end
  object QPlanoSaida: TQuery
    AfterOpen = QPlanoSaidaAfterOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM PLANOCONTAS'
      ''
      'WHERE CODPAI <> 0'
      ''
      'AND NATUREZA LIKE '#39'S%'#39' '
      ''
      'AND TIPO LIKE '#39'A%'#39
      ''
      'ORDER BY ESTRUTURA')
    Left = 200
    Top = 16
  end
  object QPlanocentro: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From PlanoContasCentroCusto'
      'Where CodigoEmpresa = :Emp'
      'Order by  PlanoCentro_Codigo ')
    Left = 205
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'Emp'
        ParamType = ptUnknown
        Value = '1'
      end>
  end
  object QTipoOperacaoVenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from TipoVenda'
      ''
      'Order By TipVend_Descricao')
    Left = 379
    Top = 96
  end
  object QTipoLanctoBancario: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM COD_LANCAMENTO_BANCARIO')
    Left = 56
    Top = 312
  end
  object QFonteRecurso: TQuery
    BeforeOpen = QFonteRecursoBeforeOpen
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from fonterecurso'
      'where codigoempresa = :emp'
      'Order by font_descricao')
    Left = 120
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'emp'
        ParamType = ptUnknown
      end>
  end
  object QChequeOrigem: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cheque_origem'
      'where cheq_ori_codigo <> '#39'SP'#39' '
      'Order by cheq_ori_descricao')
    Left = 305
    Top = 136
  end
  object QChequeTipoMovto: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cheque_tipo_movto')
    Left = 305
    Top = 184
  end
  object QCheque_situcao: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cheque_situacao'
      'Order by sit_codigo')
    Left = 305
    Top = 240
  end
  object QChequePagto: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from cheque_origem'
      'where cheq_ori_pagto = '#39'P'#39' '
      'Order by cheq_ori_descricao')
    Left = 201
    Top = 248
  end
  object QTipoOperacaoVenda_NAO_EXCLUIDOS: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'select * from TipoVenda'
      
        'where (tipovenda.excluido is null) OR (tipovenda.excluido <> '#39'S'#39 +
        ')'
      'Order By TipVend_Descricao')
    Left = 379
    Top = 48
  end
end
